home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_3 / reminder / install-reminder < prev    next >
Encoding:
Text File  |  1993-04-19  |  7.3 KB  |  225 lines
  1. (transcript "Reminder installation by Matti Rintala")
  2.  
  3. (set @default-dest "")
  4.  
  5. (set remdir "SYS:Utilities")
  6. (set checkdir "SYS:WBStartup")
  7. (set libsdir "LIBS:")
  8. (set docdir "SYS:Utilities")
  9. (set arexxdir "REXX:")
  10. (set databool 1)
  11. (set defdata "S:Reminder.data")
  12. (set datatool "FILE")
  13. (set noreqtool "NOREQTOOLS")
  14. (set noarexxtool "NOAREXX")
  15. (set intervtool "INTERVAL")
  16. (set maxgrouptool "MAXGROUP")
  17. (set maxwidthtool "MAXWIDTH")
  18. (set defmaxwidth 30)
  19. (set defmaxgroup 4)
  20. (set definterv 8)
  21.  
  22. (set remdir (askdir (prompt "Where would you like to put Reminder event editor?")
  23.             (help "Best place is somewhere where your other utility "
  24.               "programs are\n\n" @askdir-help)
  25.             (default remdir)))
  26.  
  27. (set remdest (tackon remdir "Reminder"))
  28.  
  29. (copylib (source "Reminder")
  30.      (dest remdir)
  31.      (prompt "About to copy Reminder")
  32.      (help @copylib-help)
  33.      (infos)
  34.      (confirm))
  35.  
  36. (set databool (askbool (prompt "Are you satisfied with the default database filename "
  37.                    defdata " ?")
  38.                (help "Database holds all events you've entered. Answering 'No' "
  39.                  "here lets you to enter a new filename for both Reminder and "
  40.                  "ReminderCheck.")
  41.                (default databool)))
  42.  
  43. (if databool
  44.     (tooltype (prompt "Setting default database file for Reminder")
  45.           (dest remdest)
  46.           (noposition)
  47.           (settooltype ("(%s=%s)" datatool defdata) ""))
  48.   (
  49.    (set defdata (askfile (prompt "Which is the name of Reminder database?")
  50.                (help "Database holds all events you've entered.")
  51.                (default defdata)))
  52.    (tooltype (prompt "Setting default database file for Reminder")
  53.          (help "Sorry, your on your own.")
  54.          (dest remdest)
  55.          (noposition)
  56.          (settooltype datatool defdata))))
  57.  
  58.  
  59. (set checkdir (askdir (prompt "Where would you like to put ReminderCheck?")
  60.             (help "Placing it in SYS:WBStartup will run it every "
  61.               "time you boot.\n\n" @askdir-help)
  62.             (default checkdir)))
  63.  
  64. (set checkdest (tackon checkdir "ReminderCheck"))
  65.  
  66. (copylib (source "ReminderCheck")
  67.      (dest checkdir)
  68.      (prompt "About to copy ReminderCheck")
  69.      (help @copylib-help)
  70.      (infos)
  71.      (confirm))
  72.  
  73. (if databool
  74.     (tooltype (prompt "Setting default database file for ReminderCheck")
  75.           (dest checkdest)
  76.           (noposition)
  77.           (settooltype ("(%s=%s)" datatool defdata) ""))
  78.   (tooltype (prompt "Setting default database file for ReminderCheck")
  79.         (help "Sorry, your on your own.")
  80.         (dest checkdest)
  81.         (noposition)
  82.         (settooltype datatool defdata)))
  83.  
  84. (set checktools (askoptions (prompt "Select tooltypes you wish to use with "
  85.                     "ReminderCheck.")
  86.                 (help intervtool ": Set minimum time between two "
  87.                   "successive remindings.\n\n"
  88.                   noreqtool ": ReminderCheck does not use "
  89.                   "ReqTools.library if this is selected.\n\n"
  90.                   noarexxtool ": ReminderCheck does not use ARexx if "
  91.                   "this is selected.\n\n"
  92.                   maxgrouptool ": Maximum number of events in one "
  93.                   "group requester\n (choose small enough to "
  94.                   "ensure that requester fits the screen). 0 means "
  95.                   "no group requesters.\n\n"
  96.                   maxwidthtool ": Maximum width of lines in "
  97.                   "requesters. Default is 30.\n\n"
  98.                   @askoptions-help)
  99.                 (choices intervtool noreqtool noarexxtool maxgrouptool
  100.                      maxwidthtool)
  101.                 (default 0)))
  102.  
  103. (if (IN checktools 0)
  104.     (
  105.      (set definterv (asknumber (prompt "Enter minimum time between two remindings "
  106.                        "(in hours).")
  107.                    (help @asknumber-help)
  108.                    (range 0 100)
  109.                    (default definterv)))
  110.      (tooltype (prompt "Setting " intervtool " tooltype for ReminderCheck")
  111.            (help "Sorry, no help.")
  112.            (dest checkdest)
  113.            (noposition)
  114.            (settooltype intervtool (cat definterv))))
  115.   (tooltype (prompt "Setting (" intervtool ") tooltype proto for ReminderCheck")
  116.         (help "Sorry, no help.")
  117.         (dest checkdest)
  118.         (noposition)
  119.         (settooltype ("(%s=%s)" intervtool (cat definterv)))))
  120.  
  121. (if (IN checktools 1)
  122.     (tooltype (prompt "Setting " noreqtool " tooltype for ReminderCheck")
  123.           (help "Sorry, no help.")
  124.           (dest checkdest)
  125.           (settooltype noreqtool ""))
  126.   (tooltype (prompt "Setting (" noreqtool ") tooltype for ReminderCheck")
  127.         (help "Sorry, no help.")
  128.         (dest checkdest)
  129.         (settooltype ("(%s)" noreqtool) "")))
  130.  
  131. (if (IN checktools 2)
  132.     (tooltype (prompt "Setting " noarexxtool " tooltype for ReminderCheck")
  133.           (help "Sorry, no help.")
  134.           (dest checkdest)
  135.           (settooltype noarexxtool ""))
  136.   (tooltype (prompt "Setting (" noarexxtool ") tooltype for ReminderCheck")
  137.         (help "Sorry, no help.")
  138.         (dest checkdest)
  139.         (settooltype ("(%s)" noarexxtool) "")))
  140.  
  141. (if (IN checktools 3)
  142.     (
  143.      (set defmaxgroup (asknumber (prompt "Enter maximum number of events in one "
  144.                      "group requester (small enough so that "
  145.                      "requester fits the screen). 0 means "
  146.                      "no group requesters.")
  147.                  (help @asknumber-help)
  148.                  (range 0 30)
  149.                  (default defmaxgroup)))
  150.      (tooltype (prompt "Setting " maxgrouptool " tooltype for ReminderCheck")
  151.            (help "Sorry, no help.")
  152.            (dest checkdest)
  153.            (noposition)
  154.            (settooltype maxgrouptool (cat defmaxgroup))))
  155.   (tooltype (prompt "Setting (" maxgrouptool ") tooltype proto for ReminderCheck")
  156.         (help "Sorry, no help.")
  157.         (dest checkdest)
  158.         (noposition)
  159.         (settooltype ("(%s=%s)" maxgrouptool (cat defmaxgroup)))))
  160.  
  161. (if (IN checktools 4)
  162.     (
  163.      (set defmaxwidth (asknumber (prompt "Enter maximum width of lines in "
  164.                      "requesters.")
  165.                  (help @asknumber-help)
  166.                  (range 19 200)
  167.                  (default defmaxwidth)))
  168.      (tooltype (prompt "Setting " maxwidthtool " tooltype for ReminderCheck")
  169.            (help "Sorry, no help.")
  170.            (dest checkdest)
  171.            (noposition)
  172.            (settooltype maxwidthtool (cat defmaxwidth))))
  173.   (tooltype (prompt "Setting (" maxwidthtool ") tooltype proto for ReminderCheck")
  174.         (help "Sorry, no help.")
  175.         (dest checkdest)
  176.         (noposition)
  177.         (settooltype ("(%s=%s)" maxwidthtool (cat defmaxwidth)))))
  178.  
  179.  
  180. (copylib (source "ReqTools.library")
  181.      (dest libsdir)
  182.      (prompt "About to copy ReqTools.library by Nico François")
  183.      (Help @copylib-help)
  184.      (confirm))
  185.  
  186. (if (askbool (prompt "Would you like to install the document files?")
  187.          (help "If you answer Yes, you'll be able to say where to copy "
  188.            "document files. If you are an Expert user, you can also "
  189.            "tell which files you want to copy.")
  190.          (default 0))
  191.     (
  192.      (set docdir (askdir (prompt "Where do you want the document files to be put?")
  193.              (help @askdir-help)
  194.              (default docdir)))
  195.      (copyfiles (prompt "Which document files would you like to copy?")
  196.         (help @copyfiles-help)
  197.         (source "")
  198.         (dest docdir)
  199.         (choices "Reminder.doc"
  200.              "Reminder.tex" "Reminder.dvi"
  201.              "Reminder.guide"
  202.              "QuickRef.doc")
  203.         (infos)
  204.         (confirm))))
  205.  
  206.  
  207. (if (askbool (prompt "Would you like to install the ARexx scripts?")
  208.          (help "If you answer Yes, you'll be able to say where to put "
  209.            "the ARexx scripts coming with Reminder. If you are an "
  210.            "Expert user, you can also tell which ARexx scripts to copy.")
  211.          (default 0))
  212.     (
  213.      (set arexxdir (askdir (prompt "Where do you want the ARexx scripts to be put?")
  214.                (help @askdir-help)
  215.                (default arexxdir)))
  216.      (copyfiles (prompt "Which ARexx script files would you like to copy?")
  217.         (help @copyfiles-help)
  218.         (source "")
  219.         (dest arexxdir)
  220.         (choices "RemPlay.rexx" "RemSay.rexx")
  221.         (confirm))))
  222.  
  223.  
  224.  
  225.